program diocp_Processor_QWorker_XE6;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  SysUtils,
  Classes,
  zmq in 'zmq\zmq.pas',
  zmqapi in 'zmq\zmqapi.pas',
  qrbtree in 'QWorkers\qrbtree.pas',
  qstring in 'QWorkers\qstring.pas',
  qworker in 'QWorkers\qworker.pas',
  qxml in 'QWorkers\qxml.pas',
  DIOCPProcessor in 'DIOCPProcessor.pas';

var
  lvProcessor:TDIOCPProcessor;
begin
  lvProcessor := TDIOCPProcessor.Create;
  try
    try
      lvProcessor.start;
    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
    end;
  finally
    lvProcessor.Free;
  end;
end.
